home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
dev
/
cross
/
GBDK-2.0.lha
/
GBDK
/
lib
/
scroll_w.s
< prev
next >
Wrap
Text File
|
1998-10-01
|
271b
|
25 lines
.include "global.s"
.area _CODE
_scroll_win::
LDA HL,2(SP) ; Skip return address
XOR A
CP (HL) ; Is x != 0
JR Z,1$
LDH A,(.WX) ; Yes
ADD (HL)
LDH (.WX),A
1$:
INC HL
XOR A
CP (HL) ; Is y != 0
JR Z,2$
LDH A,(.WY) ; Yes
ADD (HL)
LDH (.WY),A
2$:
RET